10 REM' start
20 REM' set screen
30 KEY OFF:SCREEN 2
40 SCREEN 0,1:COLOR 0,0,0:CLS
50 REM' draw menu mat
60 COLOR 2,1,0
70 FOR I =  1 TO 23
80 LOCATE I,17:PRINT "                                              "
90 NEXT I
100 COLOR 14,1,0
110 LOCATE 1,17:PRINT CHR$(213)+STRING$(44,205)+CHR$(184)
120 FOR S = 2 TO 22
130 LOCATE S,17:PRINT CHR$(179)+STRING$(44,32)+CHR$(179)
140 NEXT S
150 LOCATE 23,17:PRINT CHR$(212)+STRING$(44,205)+CHR$(190)
155 FOR I = 1 TO 500:NEXT I
160 REM'        Voice Selections For Casio Tone Bank
170 LOCATE 2,30:COLOR 12,1:PRINT"   CHANNEL MASTER "
180 LOCATE 3,20:COLOR 11:PRINT "Chnl Select                    Voice"
190 LOCATE 4,25:COLOR 3:PRINT "1                     1 Piano"
200 LOCATE 5,25:COLOR 3:PRINT "2                     2 Harpsichord"
210 LOCATE 6,25:COLOR 3:PRINT "3                     3 Vibraphone "
220 LOCATE 7,25:COLOR 3:PRINT "4                     4 Jazz Organ "
230 LOCATE 8,25:COLOR 3:PRINT "5                     5 Pipe Organ "
240 LOCATE 9,25:COLOR 3:PRINT "6                     6 Brass Ens  "
250 LOCATE 10,25:COLOR 3:PRINT "7                     7 Strings    "
260 LOCATE 11,25:COLOR 3:PRINT "8                     8 Flute      "
270 LOCATE 12,25:COLOR 3:PRINT "9                     9 Chorus     "
280 LOCATE 13,25:COLOR 3:PRINT "10                    A Jazz Guitar"
290 LOCATE 14,25:COLOR 3:PRINT "11                    B Bells      "
300 LOCATE 15,25:COLOR 3:PRINT "12                    C Oboe       "
310 LOCATE 16,25:COLOR 3:PRINT "13                    D SynthReed  "
320 LOCATE 17,25:COLOR 3:PRINT "14                    E Harp       "
330 LOCATE 18,25:COLOR 3:PRINT "15                    F SynthCelest"
340 LOCATE 19,25:COLOR 3:PRINT "16                    G SynthClavi "
350 LOCATE 20,25:COLOR 3:PRINT "		      H Miracle    "
360 LOCATE 21,25:COLOR 3:PRINT "		      I Slap Bass  "
1000 LOCATE 22,38:COLOR 12:PRINT "eXit"
1010 LOCATE 22,39:COLOR 15:PRINT "X"
1500 COLOR 3:REM'                set channel
1510 LOCATE 4,25:PRINT "1"
1520 LOCATE 5,25:PRINT "2"
1530 LOCATE 6,25:PRINT "3"
1540 LOCATE 7,25:PRINT "4"
1800 LET CS$=INKEY$
1810 IF CS$="1" THEN GOTO 2000
1820 IF CS$="2" THEN GOTO 2010
1830 IF CS$="3" THEN GOTO 2020
1840 IF CS$="4" THEN GOTO 2030
1845 IF CS$="x" OR CS$="X" THEN SYSTEM
1850 GOTO 1800
2000 OUT &H2E8,&HC0
2001 COLOR 28:LOCATE 4,25:PRINT "1"
2005 GOTO 2500
2010 OUT &H2E8,&HC1
2011 COLOR 28:LOCATE 5,25:PRINT "2"
2015 GOTO 2500
2020 OUT &H2E8,&HC2
2021 COLOR 28:LOCATE 6,25:PRINT "3"
2025 GOTO 2500
2030 OUT &H2E8,&HC3
2031 COLOR 28:LOCATE 7,25:PRINT "4"
2035 GOTO 2500
2500 REM'                                        set voice
2900 LET SV$ = INKEY$
2910 IF SV$="1" THEN GOTO 3500
2920 IF SV$="2" THEN GOTO 3520
2930 IF SV$="3" THEN GOTO 3540
2940 IF SV$="4" THEN GOTO 3560
2950 IF SV$="5" THEN GOTO 3580
2960 IF SV$="6" THEN GOTO 3600
2970 IF SV$="7" THEN GOTO 3620
2980 IF SV$="8" THEN GOTO 3640
2990 IF SV$="9" THEN GOTO 3660
3000 IF SV$="A" THEN GOTO 3680
3010 IF SV$="B" THEN GOTO 4000
3020 IF SV$="C" THEN GOTO 4020
3030 IF SV$="D" THEN GOTO 4040
3040 IF SV$="E" THEN GOTO 4060
3050 IF SV$="F" THEN GOTO 4080
3060 IF SV$="G" THEN GOTO 5000
3070 IF SV$="H" THEN GOTO 5020
3080 IF SV$="I" THEN GOTO 5040

3200 GOTO 2900

3500 OUT &H2E8,&H0
3511 COLOR 28:LOCATE 4,47:PRINT "1"
3510 GOTO 155
3520 OUT &H2E8,&H1
3521 COLOR 28:LOCATE 5,47:PRINT "2"
3530 GOTO 155
3540 OUT &H2E8,&H2
3541 COLOR 28:LOCATE 6,47:PRINT "3"
3550 GOTO 155
3560 OUT &H2E8,&H3
3561 COLOR 28:LOCATE 7,47:PRINT "4"
3570 GOTO 155
3580 OUT &H2E8,&H4
3581 COLOR 28:LOCATE 8,47:PRINT "5"
3590 GOTO 155
3600 OUT &H2E8,&H5
3601 COLOR 28:LOCATE 9,47:PRINT "6"
3610 GOTO 155
3620 OUT &H2E8,&H6
3621 COLOR 28:LOCATE 10,47:PRINT "7"
3630 GOTO 155
3640 OUT &H2E8,&H7
3641 COLOR 28:LOCATE 11,47:PRINT "8"
3650 GOTO 155
3660 OUT &H2E8,&H8
3661 COLOR 28:LOCATE 12,47:PRINT "9"
3670 GOTO 155
3680 OUT &H2E8,&H9
3681 COLOR 28:LOCATE 13,47:PRINT "A"
3690 GOTO 155
4000 OUT &H2E8,&HA
4001 COLOR 28:LOCATE 14,47:PRINT "B"
4010 GOTO 155
4020 OUT &H2E8,&H16
4021 COLOR 28:LOCATE 15,47:PRINT "C"
4030 GOTO 155

4040 OUT &H2E8,&H17
4050 GOTO 155
4060 OUT &H2E8,&H18
4070 GOTO 155
4080 OUT &H2E8,&H19
4090 GOTO 155
5000 OUT &H2E8,&H1A
5010 GOTO 155
5020 OUT &H2E8,&H1C
5030 GOTO 155
5040 OUT &H2E8,&H1D